'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   T h i s   p r o g r a m   r e a d   t h e   p u l s e s   o f   a   t e l e p h o n e   d i a l 
 
 '   T h e   t h e l e p h o n e   d i a l   i s   c o n n e c t e d   f r o m   S i g n a l   t o   G N D 
 
 '   S i g n a l   i s   n o r m a l l y   d o w n   ( U p = 7 0 m s   /   D o w n = 4 0 m s ) 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 V a r i a b l e   S t r i n g   S t a t u s   =   " W a i t i n g S t a r t " 
 
 V a r i a b l e   N u m e r i c   C o u n t 
 
 V a r i a b l e   N u m e r i c   I N 
 
 V a r i a b l e   N u m e r i c   S t a r t T i m e 
 
 
 
 L a b e l   D e c o d e 
 
 	 I N   =   S l o t ( 1 ) 
 
 	 S e l e c t   S t a t u s 
 
 	 	 C a s e   " W a i t i n g S t a r t " 
 
 	 	 	 I f   I N   >   8 0 0 
 
 	 	 	 	 C o u n t   =   0 
 
 	 	 	 	 S t a t u s   =   " W a i t i n g D o w n " 
 
 	 	 	 E n d I f 
 
 	 	 C a s e   " W a i t i n g D o w n " 
 
 	 	 	 I f   I N   <   2 0 0 
 
 	 	 	 	 C o u n t   =   C o u n t   +   1 
 
 	 	 	 	 S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 	 	 	 S t a t u s   =   " W a i t i n g U p " 
 
 	 	 	 E n d I f 
 
 	 	 C a s e   " W a i t i n g U p " 
 
 	 	 	 I f   I N   >   8 0 0 
 
 	 	 	 	 S t a t u s   =   " W a i t i n g D o w n " 
 
 	 	 	 E n d I f 
 
 	 	 	 I f   E l a p s e d T i m e   -   S t a r t T i m e   >   0 . 2 
 
 	 	 	 	 G o s u b   E x e c u t e 
 
 	 	 	 	 S t a t u s   =   " W a i t i n g S t a r t " 
 
 	 	 	 E n d I f 
 
 	 E n d S e l e c t 
 
 G o t o   D e c o d e 
 
 
 
 L a b e l   E x e c u t e 
 
 	 P r i n t   " D i a l   c o u n t s   =   "   +   C o u n t 
 
 	 S e l e c t   C o u n t 
 
 	 	 C a s e   1 
 
 	 	 	 
 
 	 	 C a s e   2 
 
 	 	 	 
 
 	 	 C a s e   3 
 
 	 	 	 
 
 	 	 C a s e   4 
 
 	 	 	 
 
 	 	 C a s e   5 
 
 	 	 	 
 
 	 	 C a s e   6 
 
 	 	 	 
 
 	 	 C a s e   7 
 
 	 	 	 
 
 	 	 C a s e   8 
 
 	 	 	 
 
 	 	 C a s e   9 
 
 	 	 	 
 
 	 	 C a s e   1 0   '   t h e   d i a l   0   h a s   1 0   p u l s e s 
 
 	 	 	 B e e p 
 
 	 E n d S e l e c t 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   S e w T o _ S p e e d 
 
 ' E X E C   B u t t o n   5   T e x t   B u t t o n 5 
 
 